home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 6 / magutl15.zip / BITSTRIP.BAS next >
BASIC Source File  |  1989-05-25  |  367b  |  13 lines
  1. 100 PRINT CHR$(12)
  2. 110 PRINT"bitstrip"
  3. 120 INPUT "enter name of input file - ";F1$
  4. 130 INPUT "enter name of output file - ";F2$
  5. 140 OPEN F1$ FOR INPUT AS #1 LEN=512
  6. 150 OPEN F2$ FOR OUTPUT AS #2 LEN=512
  7. 160 IF EOF(1) THEN END
  8. 170 N=(ASC(INPUT$(1,#1)) AND 127)
  9. 180 IF N<10 OR (N>13 AND N<20) THEN 160
  10. 190 PRINT #2,CHR$(N);
  11. 200 PRINT CHR$(N);
  12. 210 GOTO 160
  13.